home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct05020.geo / 00125_05 BookMark & FAQ.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.1 KB  |  86 lines
  1. on OpenBookMarkWD
  2.   global BookMarkWd1, PCDEL
  3.   unLoadCast()
  4.   set the visible of sprite 48 to 1
  5.   set the cursor of sprite 48 to [400, 401]
  6.   RestoreHilites()
  7.   if objectp(BookMarkWd1) then
  8.     forget(BookMarkWd1)
  9.   end if
  10.   set BookMarkWd1 to window (the pathName & "BM" & PCDEL & "BM_FTP1.GEO")
  11.   set the rect of BookMarkWd1 to rect(the stageLeft + 48, the stageTop + 58, the stageLeft + 272, the stageTop + 257)
  12.   set the titleVisible of BookMarkWd1 to 0
  13.   tell BookMarkWd1
  14.     init()
  15.     loadTitle()
  16.   end tell
  17.   open(BookMarkWd1)
  18.   pause()
  19. end
  20.  
  21. on CloseBookMarkWindow2
  22.   global BookMarkWd2
  23.   if objectp(BookMarkWd2) then
  24.     forget(BookMarkWd2)
  25.   end if
  26. end
  27.  
  28. on CloseBookMarkWindows
  29.   global BookMarkWd1, BookMarkWd2
  30.   if objectp(BookMarkWd1) then
  31.     forget(BookMarkWd1)
  32.   end if
  33.   if objectp(BookMarkWd2) then
  34.     forget(BookMarkWd2)
  35.   end if
  36.   set the castNum of sprite 38 to the number of cast "BOOKMARK_UP"
  37.   set the visible of sprite 48 to 0
  38.   set the cursor of sprite 48 to 0
  39.   RestoreHilites()
  40.   continue()
  41. end
  42.  
  43. on openSubMenuWindow
  44.   global BookMarkWd2, PCDEL
  45.   if objectp(BookMarkWd2) then
  46.     tell BookMarkWd2
  47.       CancelLastSp()
  48.       go("start")
  49.     end tell
  50.   else
  51.     set BookMarkWd2 to window (the pathName & "BM" & PCDEL & "BM_FTP2.GEO")
  52.     set the rect of BookMarkWd2 to rect(the stageLeft + 273, the stageTop + 58, the stageLeft + 609, the stageTop + 257)
  53.     set the titleVisible of BookMarkWd2 to 0
  54.     tell BookMarkWd2
  55.       init()
  56.       PlaceMySlider()
  57.     end tell
  58.     open(BookMarkWd2)
  59.   end if
  60. end
  61.  
  62. on OpenFAQwindow
  63.   global FAQwd, PCDEL
  64.   unLoadCast()
  65.   set the cursor of sprite 48 to [400, 401]
  66.   if objectp(FAQwd) then
  67.     forget(FAQwd)
  68.   end if
  69.   set FAQwd to window (the pathName & "FAQ" & PCDEL & "FAQ_FTP.GEO")
  70.   set the rect of FAQwd to rect(the stageLeft + 120, the stageTop + 80, the stageLeft + 520, the stageTop + 400)
  71.   set the titleVisible of FAQwd to 0
  72.   set the modal of FAQwd to 1
  73.   open(FAQwd)
  74.   pause()
  75. end
  76.  
  77. on closeFAQwindow
  78.   global FAQwd
  79.   if objectp(FAQwd) then
  80.     forget(FAQwd)
  81.   end if
  82.   set the cursor of sprite 48 to 0
  83.   set the castNum of sprite 37 to the number of cast "FAQ_UP"
  84.   continue()
  85. end
  86.